program Darbai;
type vardas = string[15];
     sar = ^k;
     k = record  p : vardas;  sek : sar end;
procedure Duomenys(var P : sar);
 var G : sar;  F : text;
begin
 Assign(F,'vardai.txt');  Reset(F);
 if not Eof(F) then begin
   New(P);  P^.sek := P;
   G := P;  Read(F,P^.p);
 end;
 while not Eof(F) do begin
   New(G^.sek);  G := G^.sek;
   G^.sek := P; Read(F,G^.p);
 end;
 Close(F);
end;
var  Pr : sar; 
     N, D, i, j : integer;
begin
 Readln(N,D); Duomenys(Pr);
 for i:= 1 to D do
   begin Writeln(' Diena Nr.', i:3);
      for j:= 1 to N do begin
        Writeln(Pr^.p); Pr := Pr^.sek;
      end;
   end;
end.